scoiatolo

per 06.Scoiattolo.tutto
TARTA.PRIMO.PIANO
sfondo.06
rosso1
scoiattolo.testo1
PRONUNCIA "SCOIATTOLO1
cominciapos :punto1
sopra :lato * .2
a.destra :lato * .3
scoiattolo :lato * 1.4
rosso3
scoiattolo.testo2
PRONUNCIA "SCOIATTOLO2
fine

per scoiattolo.testo1
cominciapos :punto2 sopra 30
Tahoma 30
box.01 [Scoiattolo nostrano]
:penna.colore
:riempi.colore
:ombra.colore
fine

per scoiattolo.testo2
cominciapos :punto1
Tahoma 28 ascolpenna :penna.colore
Scritarta [Vive sugli alberi e si ciba di ghiande]
fine

per scoiattolo :x
as "x :x / 100
as "scoiattolo.origine dove
su d 40 a :x * 150 s 40
giu
s 160 arcd :x * 18 70
a :x * 9 arcd :x * 18 65
arcd :x * 6 45 a :x * 18
arcd :x * 18 50 a :x * 12
as "scoiattolo.occhio dove
scoiattolo.occhio :x
su vapos :scoiattolo.occhio asdir 90 giu
i :x * 12 s 90 a :x * 15
arcd :x * 1.8 150 a :x * 19.2
s 15 su i :x * 7 ascolriempi [255 180 100]
riempi a :x * 7 d 15 giu
s 150 a :x * 15
arcd :x * 1.8 150 a :x * 18
arcd :x * 18 30
a :x * 6 arcs :x * 3 90
arcd :x * 60 60
arcd :x * 60 30
a :x * 6
arcd :x * 60 30
as "coda dove
arcd :x * 12 60
a :x * 48
arcd :x * 3 90
arcd :x * 6 90
a :x * 3 arcs :x * 3 90
a :x * 6 arcd :x * 30 90
su d 180 arcs :x * 30 90 a :x * 6
arcd :x * 3 90 a :x * 3 arcs :x * 6 90
arcs :x * 3 90 s 180 giu a :x * 12
arcd :x * 3 90
arcd :x * 6 90
a :x * 3 arcs :x * 3 90
a :x * 6 arcd :x * 30 45
s 100 i :x * 9
a :x * 9 arcd :x * 60 15
s 135 a :x * 12
arcd :x * 3 45
a :x * 12
arcd :x * 3 90
scoiattolo.ghianda :x
a :x * 6
s 60 a :x * 12
s 40 arcd :x * 36 40
su vapos :coda
su s 90 a :x * 10
ascolriempi [255 200 100] riempi
i :x * 10 d 95 giu
scoiattolo.coda :x
cominciapos :scoiattolo.origine
fine

per scoiattolo.occhio :x
su d 135 a :x * 30 giu
arcd :x * 3 360
arcd :x * 1.8 360
su d 90 a :x * 1.8
ascolriempi [0 0 0] riempi
i :x * 1.8 s 90 giu
fine

per scoiattolo.coda :x
a :x * 18
arcs :x * 60 60
arcd :x * 60 90
arcd :x * 18 120
arcd :x * 18 90
arcs :x * 12 90
arcs :x * 60 30
arcd :x * 54 60
arcd :x * 66 40
a :x * 3
d 140 su a :x * 50
ascolriempi [200 180 100]
riempi
ascolriempi [255 180 100]
mt
su a :x * 20
s 140 a :x * 90
riempi giu
fine

per scoiattolo.ghianda :x
ripeti 2 [a :x * 6 arcd :x * 3 180]
a :x * 4.8 d 90 a :x * 7.2
su i :x * 3.6 s 90 a :x * 1.2
ascolriempi [0 255 0] riempi
i :x * 2.4
ascolriempi [155 180 100] riempi
a :x * 1.2 d 90 a :x * 3.6 giu
fine







per 06.Elefante.tutto
TARTA.PRIMO.PIANO
sfondo.02
rosso1
elefante.testo1
PRONUNCIA "ELEFANTE0
PRONUNCIA "ELEFANTE1
cominciapos :punto1
sopra :lato * .22
a.destra :lato * .21
elefante :lato * 1.25
rosso3
elefante.testo2
PRONUNCIA "ELEFANTE2
fine

per elefante.testo1
cominciapos :punto2 sopra 30
Comic 32
box.01 [Elefante]
:penna.colore
:riempi.colore
:ombra.colore
fine

per elefante.testo2
cominciapos :punto1
Comic 28 ascolpenna :penna.colore
Scritarta [Vive nella giungla e si ciba di arbusti]
fine

per elefante :x
as "x :x / 100
as "elefante.origine dove
; riposiziona e ridimensiona
saltax :x * 15
saltay :x * 1
as "x prodotto :x 1.06
; inizia a disegnare
asdir 0 su
d 30 a :x *196 s 30 giu
as "inizio dove
s 45 arcs :x *35 90
arcs :x *24.5 45 d 45
arcs :x *21 60 d 45
arcs :x *140 30
arcs :x *21 90 arcs :x *7 90
arcs :x *2.8 110 arcd :x *2.8 82
arcd :x *28 50 a :x *42 arcd :x *7 60
arcs :x *14 30 d 90
arcs :x *21 30 arcs :x *7 60
d 180 arcd :x *42 45 d 160
arcs :x *35 50 su d 190 a :x *21.7 giu
s 37 a :x *28 arcs :x *14 20 a :x *21

arcd :x *14 20 a :x *21
s 180 a :x *21
s 15 arcd :x *70 30
s 35 a :x *21 i :x *21 d 50 a :x *28 i :x *28 d 180
s 15 arcs :x *70 30 d 15 a :x *21
arcs :x *7 20 a :x *12.6
arcd :x *7 20
arcd :x *1.4 90
arcs :x *1.4 170
arcs :x *35 30
a :x *3.5 s 60 a :x *34.3
d 30 arcs :x *42 30
a :x *27.3 arcd :x *42 30
as "orecchio dove
d 40 arcs :x *42 30
arcs :x *21 60 a :x *14
arcs :x *21 60
arcs :x *21 20 a :x *35
su vapos :orecchio giu
s 30 arcd :x *21 60 a :x *10.5
d 60 arcs :x *14 60 arcd :x *3.5 90 su
i :x *7
giu arcs :x *3.5 360
su vapos :inizio giu
d 58 a :x *42
arcd :x * 140 30
arcd :x *42 90
arcs :x *140 30 a :x *7
arcd :x *2.8 90
a :x *21 arcd :x *2.8 160
arcs :x *1.4 90 d 20 a :x *28
s 30 arcd :x *126 30
d 180 arcs :x *126 10
d 100 arcs :x *63 30 d 20
arcd :x *63 30

d 180 a :x * 6 arcs :x *63 30 s 20 arcd :x *63 20
d 110 arcs :x *70 30
arcd :x *49 25 arcs :x *2.8 90 a :x *19.6
su s 30 a :x *14 ascolriempi [145 145 135] riempi
s 150 a :x *25 ascolriempi [120 120 120] riempi
a :x * 101 ascolriempi [145 145 135] riempi
d 45 a :x *37 ascolriempi [120 120 120] riempi
a :x *35 ascolriempi [145 145 135] riempi
sulapenna
cominciapos :elefante.origine
fine

per elefante.bn :x
as "elefante.origine dove
asdir 0
as "x :x / 100
; ridimensiona e riposiziona l'immagine
as "x :x * 1.05
saltax :x * 20
saltay :x * 5
; disegna
su d 30 a :x *196 s 30 giu
as "inizio dove
s 45 arcs :x *35 90
arcs :x *24.5 45 d 45
arcs :x *21 60 d 45
arcs :x *140 30
arcs :x *21 90 arcs :x *7 90
arcs :x *2.8 110 arcd :x *2.8 82
arcd :x *28 50 a :x *42 arcd :x *7 60
arcs :x *14 30 d 90
arcs :x *21 30 arcs :x *7 60
d 180 arcd :x *42 45 d 160
arcs :x *35 50 su d 190 a :x *21.7 giu
s 37 a :x *28 arcs :x *14 20 a :x *21

arcd :x *14 20 a :x *21
s 180 a :x *21
s 15 arcd :x *70 30
s 35 a :x *21 i :x *21 d 50 a :x *28 i :x *28 d 180
s 15 arcs :x *70 30 d 15 a :x *21
arcs :x *7 20 a :x *12.6
arcd :x *7 20
arcd :x *1.4 90
arcs :x *1.4 170
arcs :x *35 30
a :x *3.5 s 60 a :x *34.3
d 30 arcs :x *42 30
a :x *27.3 arcd :x *42 30
as "orecchio dove
d 40 arcs :x *42 30
arcs :x *21 60 a :x *14
arcs :x *21 60
arcs :x *21 20 a :x *35
su vapos :orecchio giu
s 30 arcd :x *21 60 a :x *10.5
d 60 arcs :x *14 60 arcd :x *3.5 90 su
i :x *7
giu arcs :x *3.5 360
su vapos :inizio giu
d 58 a :x *42
arcd :x * 140 30
arcd :x *42 90
arcs :x *140 30 a :x *7
arcd :x *2.8 90
a :x *21 arcd :x *2.8 160
arcs :x *1.4 90 d 20 a :x *28
s 30 arcd :x *126 30
d 180 arcs :x *126 10
d 100 arcs :x *63 30 d 20
arcd :x *63 30

d 180 a :x * 6 arcs :x *63 30 s 20 arcd :x *63 20
d 110 arcs :x *70 30
arcd :x *49 25 arcs :x *2.8 90 a :x *19.6
su s 30 a :x *14 ascolriempi [145 145 135]
s 150 a :x *21 ascolriempi [120 120 120]
a :x * 105 ascolriempi [145 145 135]
d 45 a :x *37 ascolriempi [120 120 120]
a :x *35 ascolriempi [145 145 135]
sulapenna
cominciapos :elefante.origine
fine
per 13..coniglio.suono.tutto
as "biscroma 150
as "forte 180
midiapri.se.chiuso
.coniglio.suono
midichiudi.se.aperto
fine

per .coniglio.suono
midiapri.se.chiuso
midimessaggio [193 114 0]
midimessaggio [194 013 0]
nota.accendi 1 48 0
nota.accendi 2 48 4
aspetta 600
nota.spegni 1 48 0
nota.spegni 2 48 4
nota.accendi 1 60 0
aspetta 600
nota.spegni 1 60 0

nota.accendi 1 48 0
nota.accendi 2 48 4
aspetta 600
nota.spegni 1 48 0
nota.spegni 2 48 4
nota.accendi 1 60 0
aspetta 600
nota.spegni 1 60 0

nota.accendi 1 48 0
nota.accendi 2 48 4
aspetta 600
nota.spegni 1 48 0
nota.spegni 2 48 4
aspetta 75
nota.accendi 1 60 0
aspetta 75
nota.spegni 1 60 0
nota.accendi 1 60 0
aspetta 300
nota.spegni 1 60 0
nota.accendi 1 60 0
aspetta 75
nota.spegni 1 60 0
nota.accendi 1 48 0
aspetta 300
nota.spegni 1 48 0

aspetta 300
nota.accendi 1 48 0
nota.accendi 2 48 4
aspetta 600
nota.spegni 1 48 0
nota.spegni 2 48 4
aspetta 75
nota.accendi 1 60 0
aspetta 375
nota.spegni 1 60 0
nota.accendi 1 60 0
aspetta 75
nota.spegni 1 60 0
nota.accendi 1 48 0
aspetta 300
nota.spegni 1 48 0
fine
per 06.Cigno.tutto
TARTA.PRIMO.PIANO
sfondo.03
rosso1
cigno.testo1
PRONUNCIA "CIGNO1
cominciapos :punto1
sopra :lato * .2
a.destra :lato * .2
cigno :lato * 1.25
rosso3
cigno.testo2
PRONUNCIA "CIGNO2
fine

per cigno.testo1
cominciapos :punto2 sopra 30
Tahoma 30
box.01 [Cigno]
:penna.colore
:riempi.colore
:ombra.colore
fine

per cigno.testo2
cominciapos :punto1
Tahoma 28 ascolpenna :penna.colore
Scritarta [Uccello molto elegante che vive sui laghi]
fine

per cigno :x
as "x :x / 100
as "cigno.origine dove
su ripeti 2 [a :x * 200 d 90 a :x * 300 d 90]
d 90 a :x * 60 s 90 a :x * 15
giulapenna
as "inizio dove
s 90 arcd :x * 30 90
a :x * 10 arcd :x * 10 30 a :x * 50
arcs :x * 30 30 a :x * 20
arcs :x * 30 60 s 30 a :x * 30 arcd :x * 2 160
a :x * 30 as "becco dove
arcd :x * 3 180 arcs :x * 5 160
d 180 arcd :x * 5 160 arcs :x * 3 180
d 110 arcd :x * 5 90 a :x * 20
arcd :x * 10 60
a :x * 20 arcd :x * 50 20
arcd :x * 50 20 a :x * 40
arcs :x * 3 120
arcd :x * 200 22 a :x * 2 i :x * 2 d 180
arcs :x * 200 10
d 110 a :x * 20
arcd :x * 30 60 d 10
a :x * 30 d 10 a :x * 30
d 135 a :x * 20 d 45 a :x * 10
as "ala dove
s 55 a :x * 60 arcs :x * 5 90
a :x * 20
arcs :x * 20 30 a :x * 20 s 160 a :x * 20 d 160 a :x * 30
s 160 a :x * 25 d 170 a :x * 40 s 140 a :x * 30
d 150 a :x * 40 s 170 a :x * 20 d 170 a :x * 30
s 140 a :x * 25 d 115 a :x * 30 s 135 a :x * 40
s 35 a :x * 60
su a :x * 10 pienopanna riempi
i :x * 10 s 135 a :x * 20
pienopanna riempi
i :x * 20 d 135
su vapos :inizio
giu d 170 a :x * 90 arcs :x * 110 30
as "zampe dove
a :x * 100 s 150 a :x * 20 d 170 a :x * 25
s 160 a :x * 60 su
s 90 a :x * 30
pienopanna riempi
i :x * 30 d 90
vapos :becco
s 45 a :x * 10 pienogiallo riempi
i :x * 10 d 45
d 190 a :x * 20 giu arco 360 :x * 3
su vapos :zampe giu
a :x * 10 arcs :x *3 90
arcd :x *3 110 arcs :x *20 60 arcd :x *3 170
arcd :x *40 45 a :x * 16
su d 160 a :x *20
pienogiallo riempi giu
cominciapos :cigno.origine
fine


per 06.Cigno.tutto
TARTA.PRIMO.PIANO
sfondo.03
rosso1
cigno.testo1
PRONUNCIA "CIGNO1
cominciapos :punto1
sopra :lato * .2
a.destra :lato * .2
cigno :lato * 1.25
rosso3
cigno.testo2
PRONUNCIA "CIGNO2
fine

per cigno.testo1
cominciapos :punto2 sopra 30
Tahoma 30
box.01 [Cigno]
:penna.colore
:riempi.colore
:ombra.colore
fine







per cigno.testo2
cominciapos :punto1
Tahoma 28 ascolpenna :penna.colore
Scritarta [Uccello molto elegante che vive sui laghi]
fine

per cigno :x
as "x :x / 100
as "cigno.origine dove
su ripeti 2 [a :x * 200 d 90 a :x * 300 d 90]
d 90 a :x * 60 s 90 a :x * 15
giulapenna
as "inizio dove
s 90 arcd :x * 30 90
a :x * 10 arcd :x * 10 30 a :x * 50
arcs :x * 30 30 a :x * 20
arcs :x * 30 60 s 30 a :x * 30 arcd :x * 2 160
a :x * 30 as "becco dove
arcd :x * 3 180 arcs :x * 5 160
d 180 arcd :x * 5 160 arcs :x * 3 180
d 110 arcd :x * 5 90 a :x * 20
arcd :x * 10 60
a :x * 20 arcd :x * 50 20
arcd :x * 50 20 a :x * 40
arcs :x * 3 120
arcd :x * 200 22 a :x * 2 i :x * 2 d 180
arcs :x * 200 10
d 110 a :x * 20
arcd :x * 30 60 d 10
a :x * 30 d 10 a :x * 30
d 135 a :x * 20 d 45 a :x * 10
as "ala dove
s 55 a :x * 60 arcs :x * 5 90
a :x * 20
arcs :x * 20 30 a :x * 20 s 160 a :x * 20 d 160 a :x * 30
s 160 a :x * 25 d 170 a :x * 40 s 140 a :x * 30
d 150 a :x * 40 s 170 a :x * 20 d 170 a :x * 30
s 140 a :x * 25 d 115 a :x * 30 s 135 a :x * 40
s 35 a :x * 60
su a :x * 10 pienopanna riempi
i :x * 10 s 135 a :x * 20
pienopanna riempi
i :x * 20 d 135
su vapos :inizio
giu d 170 a :x * 90 arcs :x * 110 30
as "zampe dove
a :x * 100 s 150 a :x * 20 d 170 a :x * 25
s 160 a :x * 60 su
s 90 a :x * 30
pienopanna riempi
i :x * 30 d 90
vapos :becco
s 45 a :x * 10 pienogiallo riempi
i :x * 10 d 45
d 190 a :x * 20 giu arco 360 :x * 3
su vapos :zampe giu
a :x * 10 arcs :x *3 90
arcd :x *3 110 arcs :x *20 60 arcd :x *3 170
arcd :x *40 45 a :x * 16
su d 160 a :x *20
pienogiallo riempi giu
cominciapos :cigno.origine
fine





TARTA.APPARECCHIA
QUADRANTI
CENTRO.01
SCOIATTOLO 50


CENTRO.02
ELEFANTE 50


CENTRO.03
CIGNO 50